home *** CD-ROM | disk | FTP | other *** search
/ Perusromppu 2 / Perusromppu 2 - 40 suomenkielistä opetusohjelmaa.iso / perusr2 / mmlab / pages.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-03  |  699b  |  40 lines
  1. UNIT Pages;
  2.  
  3. INTERFACE
  4.  
  5. USES MMLRun,
  6.      MMLDefs,
  7.      MMLPages,
  8.  
  9.      Texts;
  10.  
  11. FUNCTION CreatePages(BkColour : Colour_) : PagesPtr_;
  12.  
  13. CONST PageLayout : PageLayout_  =
  14.      (
  15.       Width      : 640;
  16.       Height     : 480;
  17.       Title      : 'MMLab-Demo, Tangentbord';
  18.       UseTitle   : True;
  19.       IdleTime   : 120;
  20.       IdlePage   : '';
  21.       UseIdle    : False;
  22.       BkColour   : colour_White;
  23.       MouseJumps : False
  24.      );
  25.  
  26. IMPLEMENTATION
  27.  
  28. USES PAGE_1;
  29.  
  30. FUNCTION CreatePages(BkColour : Colour_) : PagesPtr_;
  31.   VAR Pages : PagesPtr_;
  32.  
  33.   BEGIN
  34.     New(Pages,Init(BkColour));
  35.     Pages^.AddPage(PAGE_1.CreatePage);
  36.     CreatePages:=Pages;
  37.   END;
  38.  
  39. END.
  40.